Untitled

library(tidyverse)
datos <- read.csv(file = "../ENTREGA 3/accidentes.csv")

resumen <- datos |> count(sexo)

graf<- ggplot(resumen) +
  geom_col(aes(x=sexo, y =n, fill = sexo))+
  ggthemes::scale_fill_colorblind();graf

plotly::ggplotly(graf)